home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / NewIconsV3 / Install / Install_NewIcons_fra < prev    next >
Text File  |  1996-07-28  |  19KB  |  632 lines
  1. ; NewIcons 2.0 Installer Script
  2. ; $Ver: 39.1 (13-Jul-96)
  3. ; Rédigé par Phil Vedovatti
  4. ; Traduit par Eric Sauvageau
  5. ; Production de l'Equipe de NewIcons
  6.  
  7. (set @default-dest "SYS:C")
  8.  
  9. (set cpu (database "cpu"))
  10. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  11. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  12.  
  13. (set #bad-kick
  14.    (cat "\n\nDésolé! Vous devez avoir le Workbench 2.0 ou"
  15.         "mieux pour utiliser ce logiciel."))
  16.  
  17. (set #hello-message
  18.    (cat "\nMerci d'utiliser NewIcons, le système"
  19.         "\nrévolutionaire d'icônes pour l'Amiga."
  20.         "\nS'il-vous-plaît, lisez la documentation "
  21.         "\nafin de tirer le maximum de ce logiciel."
  22.         "\nRien ne sera effacé de votre système lors de"
  23.         "\nl'installation du logiciel.  Vos anciens icônes"
  24.         "\nseront toujours là, quoiqu'ils n'auront plus le"
  25.         "\nmême aspect sur votre écran.  Si vous désirez plus"
  26.         "\nd'informations sur une étape de l'installation,"
  27.         "\ncliquez sur le gadget \"Help\" (Aide)."
  28.         "\ndisponible au bas de l'écran."
  29.         "\n\nCLIQUEZ POUR CONTINUER"))
  30.  
  31. (set #install-which
  32.    (cat "\nQuelle(s) partie(s) du système NewIcons désirez-vous"
  33.         "\ninstaller sur votre disque dur?\n"))
  34.  
  35. (set #install-library
  36.    (cat "\n\nInstallation de newicon.library dans LIBS:."))
  37.  
  38. (set #install-library-help
  39.    (cat "\n\nCette librairie est requise pour utiliser NewIcons."))
  40.  
  41. (set #install-newicons
  42.    (cat "\n\nCopie de l'exécutable NewIcons et des fichiers"
  43.         "\nde soutien dans C:"))
  44.  
  45. (set #install-newicons-help
  46.    (cat "\n\nCette étape installe NewIcons, InjectBrush"
  47.         "\net PatchOpenWB dans votre répertoire C:"))
  48.  
  49. (set #install-icons
  50.    (cat "\n\nInstallation des images d'icônes NewIcons"
  51.         "\nsur votre partition SYS:."
  52.         "\n\nVos icônes originaux ne seront PAS effacés."
  53.         "\n\nNOTEZ-BIEN: Soyez certains que vous avez la commande"
  54.         "\nAmigaDOS 'list' originale dans le chemin de"
  55.         "\nrecherche des commandes avant de poursuivre."
  56.         "\n\nL'installation peut prendre un certain temps."))
  57.  
  58. (set #install-icons-help
  59.    (cat "\n\nLes images des nouveaux icônes seront"
  60.         "\nincorporées dans les types d'outils des fichiers"
  61.         "\n'.info'.  Ces nouveaux types d'outils seront"
  62.         "\ninvisibles une fois que NewIcons sera lancé,"
  63.         "\nrendant le fonctionnement de NewIcons tout à"
  64.         "\nfait transparent du point de vue de"
  65.         "\nl'utilisateur."))
  66.  
  67. (set #tools-dest
  68.    (cat "\nDans quel répertoire désirez-vous installer les"
  69.         "\noutils servant à manipuler les NewIcons?"
  70.         "\nAUCUN répertoire ne sera créé."))
  71.  
  72. (set #install-prefs
  73.    (cat "\nInstallation de NewIconsPrefs"
  74.         "\ndans le répertoire Sys:Prefs."))
  75.  
  76. (set #install-prefs-help
  77.    (cat "\nUtilisez ce logiciel pour configurer NewIcons."))
  78.  
  79. (set #install-classes
  80.    (cat "\n\nInstallation des classes ClassAct"
  81.         "\ndans le répertoire SYS:Classes."))
  82.  
  83. (set #install-classes-help
  84.    (cat "\nCette section installe les gadgets ClassAct"
  85.         "\n(requis pour NewIconsPrefs) dans votre"
  86.         "\nrépertoire Sys:Classes."))
  87.  
  88. (set #run-prefs
  89.    (cat "\nLancement de NewIconsPrefs afin de vous"
  90.         "\npermettre de configurer Newicons.  Le"
  91.         "\nrésultat ne sera visible que lorsque"
  92.         "\nvous redémarrerez votre système."))
  93.  
  94. (set #startup-change
  95.    (cat "NewIcons V3.0 nécessite un changement à votre"
  96.         "\n'user-startup' afin d'être lancé.  Ajout de:"
  97.         "\n\n'Run <NIL: >NIL: c:NewIcons'"
  98.         "\n\nà votre fichier S:user-startup?"
  99.         "\n\n(Il est possible que vous ayez à effacer"
  100.         "\nl'ancienne commande vous-même de ce fichier"
  101.         "\nsi vous n'avez pas utilisé le script"
  102.         "\nd'installation lors d'une installation"
  103.         "\nprécédente.)"))
  104.  
  105. (set #install-deficons
  106.    (cat "\n\nInstallation du serveur DefIcons dans le"
  107.         "\nrépertoire C:, et copie des icônes génériques"
  108.         "\ndans le répertoire Envarc:sys/."))
  109.  
  110. (set #install-deficons-help
  111.    (cat "\nCette section installe le logiciel DefIcons"
  112.         "\net copie les fichiers 'def_icons' requis"
  113.         "\ndans votre répertoire ENVARC:."))
  114.  
  115. (set #move-olddefs-dir
  116.    (cat "L'Installer va déplacer vos anciens icônes"
  117.         "\ngénériques dans un autre endroit afin de"
  118.         "\nles préserver. Où désirez-vous créer le"
  119.         "\nrépertoire qui les contiendra?"))
  120.  
  121. (set #move-olddefs-help
  122.    (cat "\nCette étape copie vos anciens icônes génériques"
  123.         "\ndans un autre répertoire plutot que de ré-écrire"
  124.         "\npar-dessus.  Si jamais vous désirez retirer"
  125.         "\nDefIcons de votre système, vous n'aurez qu'à"
  126.         "\naller les récuperer dans ce répertoire."))
  127.  
  128. (set #move-olddefs
  129.    (cat "Déplacement des anciens icônes génériques dans \n"
  130.         destdir))
  131.  
  132. (set #install-envarc
  133.    (cat "\nCopie des icônes génériques et du fichier de"
  134.         "\nconfiguration pour DefIcons dans ENVARC:.\n"))
  135.  
  136. (set #install-envarc-help
  137.    (cat "\n\nCette étape installe les icônes que DefIcons"
  138.         "\nutilisera comme image générique pour les fichiers"
  139.         "\nne possédant pas d'icône."))
  140.  
  141. (set #startup-deficons
  142.    (cat "\n\nAjout d'une commande au fichier"
  143.         "\nS:User-Startup pour lancer DefIcons"
  144.         "\nlorsque vous démarrez votre systeme."))
  145.  
  146. (set #powb-message
  147.    (cat "\n\nSi vous avez installé NewIcons, vous devez "
  148.            "ajouter une ligne à votre S:Startup-Sequence:\n\n"
  149.            "C:PatchOpenWB\n"
  150.            "\nafin de corriger un bug dans le Kickstart 3.x!"
  151.            "\n\nCette ligne doit être placée entre"
  152.            "\nSetpatch et IPrefs."))
  153.  
  154. (set #docs-dest
  155.    (cat "Où désirez-vous installer la documentation"
  156.         "\nAmigaGuide de NewIcons?"))
  157.  
  158.  
  159. (set #exit-message
  160.    (cat "Veuillez redémarrer votre système afin d'activer\n"
  161.         "proprement les logiciels NewIcons et/ou Deficons."
  162.         "\n\n\nMerci d'utiliser NewIcons!"))
  163.  
  164.  
  165. ; ClassAct installation procedure V 1.5 (12.5.96) by Osma Ahvenlampi
  166.  
  167. ; percentage of the size of included ClassAct classes versus the whole
  168. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  169.  
  170. (set classact-complete 70)
  171.  
  172. ; ClassAct installer scripts
  173. (set #classdest-prompt "Veuillez choisir le répertoire où vous désirez que les classes ClassAct soient installées.\n(Voir 'help' pour explications)")
  174. (set #classdest-help (cat "ClassAct est un système pour interface graphique constitué de classes BOOPSI.\n\nCe logiciel exige l'installation de classes ClassAct sur votre système."
  175.     (if v39 (cat "OS 3.0 a un répertoire standard pour les classes BOOPSI, soit SYS:Classes. Il est recommandé d'imstaller ClassAct dans celui-ci.")
  176.             (cat "OS 2.0 n'a pas d'endroit standard pour les classes BOOPSI basées sur disque. Sous 3.0 ces classes se trouvent dans SYS:Classes. Il est recommandé de créer ce répertoire et d'y installer ClassAct.\nCe répertoire doit être ajouté à l'assignation LIBS:.  Ceci peut être accompli en ajoutant la commande\nAssign >NIL: LIBS: SYS:Classes ADD\nau User-Startup.  Ce script d'installation s'en chargera pour vous.")
  177.         )
  178.     )
  179. )
  180. (set #classes-020 "Désirez-vous utiliser les versions optimisées pour OS 3.0 et 68020 de ClassAct?")
  181. (set #help-020 "Certaines librairies ClassAct ont une version optimisée pour utiliser sur un système sous AmigaDOS 3.0 et ayant un 68020 ou mieux.  Si c'est votre cas, vous devriez installer celles-ci.  Les versions 68000/2.0 fonctionnent aussi, mais sont légèrement plus lentes.")
  182. (set #noclasses-message "Le répertoire sélectionné pour ClassAct ne fait pas partie de l'assignation LIBS:.\n\nIl est nécessaire d'ajouter cette assignation afin que les classes puissent être localisées.")
  183. (set #creating-dir "Création du répertoire ")
  184. (set #usbackup-prompt "Le fichier original User-Startup sera préservé.")
  185. (set #usbackup-help "L'Installer doit maintenant apporter un changement au User-Startup. Votre User-Startup actuel sera d'abord recopié sous le nom S:User-Startup.old")
  186. (set #adding-1 "Ajout ")
  187. (set #adding-2 " assignation LIBS:\n")
  188. (set #adding-help "Requise afin que les classes puissent être retrouvées.")
  189. (set #junod-button "Il semblerait qu'une version 42 du button.gadget de Commodore soit installée sur votre système.\n\nLe button.gadget de ClassAct est beaucoup plus puissant que ce gadget, et nous suggérons de le remplacer. Le button.gadget de ClassAct est compatible avec celui de Commodore. Désirez-vous faire une copie du gadget de Commodore et le remplacer par celui de ClassAct?")
  190. (set #junod-backed "Le button.gadget V42 de Commodore a été préservé sous le nom button.gadget.v42.\n\nLe button.gadget de ClassAct sera installé à sa place.")
  191. (set #junod-kept "Le button.gadget V42 de Commodore n'est pas remplacé par la version plus avancée de ClassAct.\n\nTout logiciel reposant sur certaines caractéristiques uniques à ClassAct peuvent fonctionner incorrectement.")
  192. (set #caprefs-message "CAPrefs est un court programme qui configure certaines options choisies par l'utilisateur pour les applications ClassAct. Cela comprend le type de Bevels (Thin/Gadtools/Xen), fond de fenêtre, et type d'étiquettes pour les groupes.\n\nUtilisez l'éditeur de préférences ClassAct afin de modifier ces options.  L'éditeur sera situé dans votre répertoire SYS:Prefs/.\n\n")
  193. (set #caprefs-startup-1 "Ajout de la commande\n\n")
  194. (set #caprefs-startup-2 "\n\nà votre s:User-Startup.")
  195.  
  196. (procedure install-classact
  197. (debug "classact")
  198. ; call this procedure to copy the classes included in the Classes directory
  199. ; in your distribution dir.
  200.     (if (exists "Classes") ; The archive contains a ClassAct library update.
  201.     (
  202.         (set comp-dest  (/ (* classact-complete 5) 10))
  203.         (set comp-libs  (/ (* classact-complete 5) 10))
  204.         (set comp-dirs  (/ (* classact-complete 6) 10))
  205.         (set comp-junod (/ (* classact-complete 6) 10))
  206.         (set comp-020   (/ (* classact-complete 7) 10))
  207.         (set comp-gad   (/ (* classact-complete 7) 10))
  208.         (set comp-im    (/ (* classact-complete 8) 10))
  209.         (set comp-prefs (/ (* classact-complete 9) 10))
  210.  
  211.         ; has the user installed ClassAct in CLASSACT: ?
  212.         (set @classact-dest (getassign "CLASSACT" "A"))
  213.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  214.  
  215.         ; is ClassAct already in SYS:Classes ?
  216.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  217.                 (= @user-level 2))
  218.             ; no, ask where it should be placed
  219.             (set @classact-dest
  220.                 (askdir
  221.                     (prompt #classdest-prompt)
  222.                     (help #classdest-help)
  223.                     (default @classact-dest)
  224.                     (newpath)
  225.                 )
  226.             )
  227.         )
  228.  
  229.         (complete comp-dest)
  230.  
  231.         (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0)
  232.             (
  233.                 (message #noclasses-message)
  234.                 (if (not (exists @classact-dest))
  235.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  236.                 )
  237.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  238.                 (startup "CLASSACT"
  239.                     (command @addassign)
  240.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  241.                     (help #adding-help)
  242.                 )
  243.                 (run (@addassign))
  244.             )
  245.         )
  246.  
  247.         (complete comp-libs)
  248.  
  249.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  250.         (set @classact-images (tackon @classact-dest "Images"))
  251.  
  252.         (if (not (exists @classact-gadgets (noreq)))
  253.             (makedir @classact-images
  254.                 (prompt (cat #creating-dir @classact-gadgets))
  255.             )
  256.         )
  257.  
  258.         (if (not (exists @classact-images (noreq)))
  259.             (makedir @classact-images
  260.                 (prompt (cat #creating-dir @classact-images))
  261.             )
  262.         )
  263.  
  264.         (complete comp-dirs)
  265.  
  266.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  267.             (if (< 40 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536))
  268.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  269.                     (
  270.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  271.                         (message #junod-backed)
  272.                     )
  273.                     (message #junod-kept)
  274.                 )
  275.             )
  276.         )
  277.  
  278.         (complete comp-junod)
  279.  
  280.         (if (exists "Classes/Gadgets/layout.gadget.020")
  281.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39))))
  282.             (set classes-020 0)
  283.         )
  284.  
  285.         (complete comp-020)
  286.  
  287.         (foreach "Classes/Gadgets" "#?.gadget"
  288.             (
  289.                 (set thislib (tackon "Classes/Gadgets" @each-name))
  290.                 (if (and classes-020 (exists (cat thislib ".020")))
  291.                     (set thislib (cat thislib ".020"))
  292.                 )
  293.                 (copylib (source thislib)
  294.                     (dest @classact-gadgets)
  295.                     (newname @each-name)
  296.                     (prompt (cat #installing @each-name))
  297.                     (help #classdest-help)
  298.                     (optional "force" "askuser")
  299.                 )
  300.             )
  301.         )
  302.  
  303.         (complete comp-gad)
  304.  
  305.         (foreach "Classes/Images" "#?.image"
  306.             (
  307.                 (set thislib (tackon "Classes/Images" @each-name))
  308.                 (if (and classes-020 (exists (cat thislib ".020")))
  309.                     (set thislib (cat thislib ".020"))
  310.                 )
  311.                 (copylib (source thislib)
  312.                     (dest @classact-images)
  313.                     (newname @each-name)
  314.                     (prompt (cat #installing @each-name))
  315.                     (help #classdest-help)
  316.                     (optional "force" "askuser")
  317.                 )
  318.             )
  319.         )
  320.  
  321.         (complete comp-im)
  322.  
  323.         (foreach "Classes" "#?.class"
  324.             (
  325.                 (set thislib (tackon "Classes" @each-name))
  326.                 (if (and classes-020 (exists (cat thislib ".020")))
  327.                     (set thislib (cat thislib ".020"))
  328.                 )
  329.                 (copylib (source thislib)
  330.                     (dest @classact-dest)
  331.                     (newname @each-name)
  332.                     (prompt (cat #installing @each-name))
  333.                     (help #classdest-help)
  334.                     (optional "force" "askuser")
  335.                 )
  336.             )
  337.         )
  338.     )
  339.     )
  340.     (if (exists "Prefs/ClassAct") ; The archive contains ClassAct prefs tools
  341.     (
  342.         (message #caprefs-message)
  343.  
  344.         (copylib (source "Prefs/CAPrefs")
  345.             (dest "C:")
  346.             (prompt (cat #installing "CAPrefs"))
  347.         )
  348.         (copylib (source "Prefs/ClassAct")
  349.             (dest "SYS:Prefs")
  350.             (prompt (cat #installing "ClassAct Prefs"))
  351.             (infos)
  352.         )
  353.  
  354.         (complete comp-prefs)
  355.  
  356.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  357.             (
  358.                 (makedir "ENVARC:ClassAct"
  359.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  360.                 )
  361.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  362.                     (append "")
  363.                 )
  364.             )
  365.         )
  366.  
  367.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  368.  
  369.         (startup "CAPREFS"
  370.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  371.             (help #caprefs-message)
  372.             (command caprefs-cmd)
  373.         )
  374.     )
  375.     )
  376.  
  377.     (complete classact-complete)
  378. )
  379.  
  380.  
  381.  
  382.  
  383. ; ------------------------------
  384. ; Check Kickstart Version
  385. ; ------------------------------
  386.  
  387.  
  388.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  389.         (abort #bad-kick)
  390.  )
  391.  
  392. (message #hello-message)
  393.  
  394.  
  395. ; ------------------------------
  396. ; What should I install?
  397. ; ------------------------------
  398. (complete 0)
  399. (set InstallOpt
  400.       (askoptions (prompt #install-which)
  401.                   (help @askoptions-help)
  402.                   (choices "NewIcons" "DefIcons" "Documentation")
  403.       )
  404. )
  405.  
  406.  
  407. ; ------------------------------
  408. ; Install NewIcon.library
  409. ; ------------------------------
  410.  
  411. (complete 10)
  412. (if ((patmatch (database "cpu") ("68000|68010")
  413.      )
  414.     )
  415.       (copylib
  416.            (source "/libs/000/newicon.library")
  417.            (dest "libs:")
  418.            (prompt #install-library)
  419.            (help #install-library-help)
  420.            (confirm)
  421.       )
  422.  
  423.       (if (>= (getversion "LIBS:version.library") (* 39 65536)
  424.           )
  425.  
  426.            (copylib
  427.                 (source "/libs/020-V39/newicon.library")
  428.                 (dest "libs:")
  429.                 (prompt #install-library)
  430.                 (help #install-library-help)
  431.                 (confirm)
  432.            )
  433.            (copylib
  434.                 (source "/libs/000/newicon.library")
  435.                 (dest "libs:")
  436.                 (prompt #install-library)
  437.                 (help #install-library-help)
  438.                 (confirm)
  439.            )
  440.       )
  441. )
  442.  
  443. ;--------------------------------------------------------
  444. ; Install NewIcons, icon images, and icon support files
  445. ;--------------------------------------------------------
  446.  
  447. (complete 20)
  448. (if (BITAND InstallOpt 1)
  449.  
  450.   ((message #install-icons)
  451.  
  452.    (execute "Install_Icons"
  453.       (help #install-icons-help)
  454.    )
  455.  
  456.    (complete 25)
  457.  
  458.    (copylib
  459.       (prompt #install-newicons)
  460.       (source "/C/NewIcons")
  461.       (dest "c:")
  462.       (help #install-newicons-help)
  463.    )
  464.  
  465.    (copylib
  466.       (source "/C/InjectBrush")
  467.       (dest "c:")
  468.    )
  469.  
  470.    (copylib
  471.       (source "/C/PatchOpenWB")
  472.       (dest "c:")
  473.    )
  474.  
  475.    (complete 30)
  476.  
  477.    (set destdir
  478.       (askdir
  479.             (prompt #tools-dest)
  480.             (help @askdir-help)
  481.             (default "Sys:Utilities")
  482.       )
  483.    )
  484.  
  485.    (copyfiles
  486.       (source "/Utilities/CopyNewIcon")
  487.       (dest destdir)
  488.       (infos)
  489.    )
  490.  
  491.    (copyfiles
  492.       (source "/Utilities/CreateDefaultIcon")
  493.       (dest destdir)
  494.       (infos)
  495.    )
  496.  
  497.    (copyfiles
  498.       (source "/Utilities/KillNewIcon")
  499.       (dest destdir)
  500.       (infos)
  501.    )
  502.  
  503.    (complete 35)
  504.  
  505.    (startup "NewIcons"
  506.       (prompt #startup-change)
  507.       (command "Run <NIL: >NIL: c:NewIcons")
  508.       (help @startup-help)
  509.    )
  510.  
  511.  
  512.    (copylib
  513.       (prompt #install-prefs)
  514.       (source "/prefs/NewIconsPrefs")
  515.       (dest "Sys:prefs")
  516.       (help #install-prefs-help)
  517.       (confirm)
  518.       (infos)
  519.    )
  520.  
  521.  
  522.  
  523.  
  524. ;------------------------------
  525. ;Install ClassAct classes
  526. ;------------------------------
  527.  
  528. ;   (message #install-classes
  529. ;      (help #install-classes-help)
  530. ;   )
  531.    (install-classact)
  532.   )
  533. )
  534. ;------------------------------
  535. ;Install Deficons
  536. ;------------------------------
  537. (complete 75)
  538. (if (BITAND InstallOpt 2)
  539.  
  540.  
  541.   ((set destdir
  542.       (askdir
  543.            (prompt #move-olddefs-dir)
  544.            (help #move-olddefs-help)
  545.            (default "Sys:Storage")
  546.       )
  547.    )
  548.  
  549.    (set destdir
  550.       (tackon destdir "Old_Def_icons")
  551.    )
  552.  
  553.    (makedir destdir
  554.    )
  555.  
  556.    (complete 80)
  557.  
  558.    (copyfiles
  559.       (prompt #move-olddefs)
  560.       (source "Envarc:sys")
  561.       (dest destdir)
  562.       (pattern "def#?")
  563.       (help #move-olddefs-help)
  564.    )
  565.  
  566.    (copylib
  567.       (prompt #install-deficons)
  568.       (source "/C/DefIcons")
  569.       (dest "C:")
  570.       (help #install-deficons-help)
  571.       (confirm)
  572.    )
  573.  
  574.    (copyfiles
  575.       (prompt #install-envarc)
  576.       (source "/envarc")
  577.       (dest "ENVARC:")
  578.       (all)
  579.       (infos)
  580.       (help #install-envarc-help)
  581.    )
  582.  
  583.    (startup "DefIcons"
  584.       (prompt #startup-deficons)
  585.       (command "DefIcons")
  586.       (help @startup-help)
  587.    )
  588.   )
  589. )
  590.  
  591.  
  592. ;------------------------------
  593. ;Install Documentation
  594. ;------------------------------
  595. (complete 90)
  596. (if (BITAND InstallOpt 4)
  597.  
  598.    ((set destdir
  599.       (askdir
  600.             (prompt #docs-dest)
  601.             (help @askdir-help)
  602.             (default "Help:")
  603.       )
  604.     )
  605.     (copyfiles
  606.       (source "/NewIcons.guide")
  607.       (dest destdir)
  608.       (infos)
  609.     )
  610.    )
  611. )
  612.  
  613.  
  614. ;------------------------------
  615. ;Run NIPrefs
  616. ;------------------------------
  617.  
  618. (complete 95)
  619. (run "/prefs/NewIconsPrefs"
  620.       (prompt #run-prefs)
  621.       (help "Vous permet de configurer NewIcons.")
  622.       (confirm)
  623.       (safe)
  624. )
  625.  
  626. (run "Sys:Utilities/Multiview /NewIcons.guide"
  627.       (safe)
  628. )
  629. (complete 99)
  630. (message #powb-message)
  631. (complete 100)
  632. (exit #exit-message)